home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_A.d64 / so ein quatsch! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  27 lines
  1. 5 poke53280,.:poke53281,.:print"[147]"
  2. 6 forv=54272to54296:pokev,4 :next
  3. 7 poke54296,15:print"[145][145]  aufgefangene bloedanische nachricht!  "
  4. 8 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 9 print"[149]           [213][174][207][175] '[213][195][195][203][202][201] [205][187]"
  6. 10 print"[149]           [176][209][201][203][196][203][203] [169][192]"
  7. 11 print"[149]           [218][178][218] [213][203][206][205] [173][203][204][187] [171][203]"
  8. 15 readh,f,d
  9. 20 ifh =-1goto200
  10. 25 poke54274,h:poke54272,f:poke54276,33 :poke54278,129:poke54277,129
  11. 30 forv=0tod:next:poke54276,32 :poke54278,128:poke54277,128:
  12. 35 forv=0to24*.2:next
  13. 36 goto15:
  14. 40 forv=54272to54296:pokev,0
  15. 110 data54,93,100,31,129,300,38,238,150,49,98,100,20,208,400,36,88,100,49,79,200
  16. 112 data58,197,250,34,63,100,42,144,400,11,96,200,44,99,375,26,63,150,39,87,200
  17. 114 data38,197,50,52,66,200,36,73,400,21,129,50,31,208,200,12,83,100,24,73,200
  18. 116 data62,29,150,46,53,250,29,44,200,51,238,200,28,208,50,49,63,200,24,73,150
  19. 117 data32,208,200,29,78,100,18,129,200,48,238,375,54,204,150,28,208,375
  20. 118 data11,240,100,34,164,300,-1,-1,-1
  21. 200 print"[154]>>>>>>   paralaletisches signal   <<<<<<"
  22. 205 print"[151]       sinngemaesse uebersetzung:       "
  23. 210 print" hoert her, hoert! 'ne neue disk ist da!"
  24. 220 ti$="000000":wait161,1:print"ende"
  25. 230 fortt=1to2000:nexttt:print"[147]"
  26. 240 load"intro*",8,1
  27.